home *** CD-ROM | disk | FTP | other *** search
/ Macintosh Performa 630CD, 635CD, 638CD / Macintosh Performa 630CD, 635CD, 638CD.iso / System Software Files / System Folder / Extensions / LaserWriter 8 / LaserWriter 8.rsrc / PS_-8147 < prev    next >
Encoding:
Text File  |  1993-09-28  |  491 b   |  21 lines
  1. %%BeginFile: adobe_psp_lwnames
  2. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /fontstring(|______                                                  )def
  4. /fontname{
  5. currentdict/FontName known{
  6. fontstring 0
  7. currentdict/FontName get fontstring 7 50 getinterval{cvs}stopped{
  8. pop pop pop pop/customfont
  9. }{
  10. length 7 add getinterval cvn
  11. }ifelse
  12. }{
  13. /customfont
  14. }ifelse
  15. }bd
  16. /copyfontdict Z
  17. /rename{
  18. copyfontdict fontname currentdict end definefont pop
  19. }bd
  20. %%EndFile
  21.